/*-
 * Copyright (c) 2012-2013 Shang-Rong Cai. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHORS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 * $ MTBLAS TEST: tst_lv_1_exe.c    Rev. 0.0.6    2013-09-28T20:26+08:00 $
 */

#include <stdlib.h>
#include <stdio.h>
#include <time.h>

#include <tst_lv_1_list.h>

#define ERRNO_UNDEFINED 0
#define TEST_THRZ 4


int main(int argc, char *argv[])
{
    int ierr = ERRNO_UNDEFINED;

    srandom((unsigned long) time(NULL));
/*
    ierr = test_dotf(TEST_THRZ);
    ierr = test_dot(TEST_THRZ);
    ierr = test_dotl(TEST_THRZ);

    ierr = test_ucdotf(TEST_THRZ);
    ierr = test_ucdot(TEST_THRZ);
    ierr = test_ucdotl(TEST_THRZ);

    ierr = test_cdotf(TEST_THRZ);
    ierr = test_cdot(TEST_THRZ);
    ierr = test_cdotl(TEST_THRZ);
*/
    //ierr = test_nrm2f(TEST_THRZ);
    ierr = test_nrm2(TEST_THRZ);
    //ierr = test_nrm2l(TEST_THRZ);
/*
    ierr = test_cnrm2f(TEST_THRZ);
    ierr = test_cnrm2(TEST_THRZ);
    ierr = test_cnrm2l(TEST_THRZ);

    ierr = test_asumf(TEST_THRZ);
    ierr = test_asum(TEST_THRZ);
    ierr = test_asuml(TEST_THRZ);

    ierr = test_casumf(TEST_THRZ);
    ierr = test_casum(TEST_THRZ);
    ierr = test_casuml(TEST_THRZ);

    ierr = test_iamaxf(TEST_THRZ);
    ierr = test_iamax(TEST_THRZ);
    ierr = test_iamaxl(TEST_THRZ);

    ierr = test_swapf(TEST_THRZ);
    ierr = test_swap(TEST_THRZ);
    ierr = test_swapl(TEST_THRZ);

    ierr = test_cswapf(TEST_THRZ);
    ierr = test_cswap(TEST_THRZ);
    ierr = test_cswapl(TEST_THRZ);

    ierr = test_copyf(TEST_THRZ);
    ierr = test_copy(TEST_THRZ);
    ierr = test_copyl(TEST_THRZ);

    ierr = test_ccopyf(TEST_THRZ);
    ierr = test_ccopy(TEST_THRZ);
    ierr = test_ccopyl(TEST_THRZ);

    ierr = test_axpyf(TEST_THRZ);
    ierr = test_axpy(TEST_THRZ);
    ierr = test_axpyl(TEST_THRZ);

    ierr = test_caxpyf(TEST_THRZ);
    ierr = test_caxpy(TEST_THRZ);
    ierr = test_caxpyl(TEST_THRZ);

    ierr = test_scalf(TEST_THRZ);
    ierr = test_scal(TEST_THRZ);
    ierr = test_scall(TEST_THRZ);

    ierr = test_cscalf(TEST_THRZ);
    ierr = test_cscal(TEST_THRZ);
    ierr = test_cscall(TEST_THRZ);

    ierr = test_fcscalf(TEST_THRZ);
    ierr = test_fcscal(TEST_THRZ);
    ierr = test_fcscall(TEST_THRZ);
*/
    return ierr;
}
